home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / ForeGnd to Bkgnd.cpt / ForeGnd to Bkgnd / card_2609.txt < prev    next >
Text File  |  1989-02-26  |  5KB  |  180 lines
  1. -- card: 2609 from stack: in
  2. -- bmap block id: 3022
  3. -- flags: 4000
  4. -- background id: 3098
  5. -- name: Picture Frame 1
  6. ----- HyperTalk script -----
  7. on opencard
  8.   set the highlite of btn 1 to true
  9.   set the highlite of btn 2 to true
  10.   set the highlite of btn 3 to true
  11. end opencard
  12.  
  13.  
  14. -- part 7 (button)
  15. -- low flags: 00
  16. -- high flags: E005
  17. -- rect: left=92 top=162 right=197 bottom=184
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Buttons
  26.  
  27.  
  28. -- part 8 (button)
  29. -- low flags: 00
  30. -- high flags: E005
  31. -- rect: left=92 top=199 right=234 bottom=184
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Fields
  40.  
  41.  
  42. -- part 9 (button)
  43. -- low flags: 00
  44. -- high flags: E005
  45. -- rect: left=92 top=238 right=273 bottom=184
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Graphics
  54.  
  55.  
  56. -- part 10 (button)
  57. -- low flags: 00
  58. -- high flags: A000
  59. -- rect: left=281 top=165 right=229 bottom=372
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 27056 / 27056
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Dare to Repair
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   global yourstack
  71.  
  72.   put 0 into buttonflag
  73.   put 0 into fieldflag
  74.   put 0 into graphicflag
  75.   repeat with x = 1 to 3
  76.     get the hilite of btn x
  77.     if it then
  78.       if x = 1 then put 1 into buttonflag
  79.       if x = 2 then put 1 into fieldflag
  80.       if x = 3 then put 1 into graphicflag
  81.     end if
  82.   end repeat
  83.   ask "Please type in your stackname" with yourstack
  84.   put it into yourstack
  85.   if it = "" then exit mouseup
  86.   put it into yourstack
  87.   ask "Which card in the stack?" with "1"
  88.   if it = "" then exit mouseup
  89.   put it into num
  90.   set cursor to 4
  91.   set lockscreen to true
  92.   go yourstack
  93.   set lockscreen to false
  94.   go to card num
  95.   answer "Prepared to repair?" with "No" or "Yes"
  96.   if it = "No" then exit mouseup
  97.   if buttonflag = 1 then
  98.     repeat with x = the number of buttons down to 1
  99.       put "button"& x into msg
  100.       choose button tool
  101.       click at the loc of button x
  102.       domenu "cut button"
  103.       domenu "background"
  104.       doMenu "paste button"
  105.       domenu "background"
  106.     end repeat
  107.   end if
  108.  
  109.   if fieldflag = 1 then
  110.     repeat with x = the number of card fields down to 1
  111.       put "field"& x into msg
  112.       choose field tool
  113.       click at the loc of card field x
  114.       domenu "cut field"
  115.       domenu "background"
  116.       doMenu "paste field"
  117.       domenu "background"
  118.     end repeat
  119.   end if
  120.  
  121.   if graphicflag = 1 then
  122.     put "graphics" into msg
  123.     choose select tool
  124.     domenu "select all"
  125.     domenu "cut picture"
  126.     domenu "background"
  127.     doMenu "paste picture"
  128.     domenu "background"
  129.   end if
  130.  
  131.   choose browse tool
  132.  
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 11 (field)
  138. -- low flags: 01
  139. -- high flags: 0000
  140. -- rect: left=72 top=54 right=90 bottom=441
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 0
  144. -- font id: 2
  145. -- text size: 12
  146. -- style flags: 4352
  147. -- line height: 16
  148. -- part name: 
  149.  
  150.  
  151. -- part 12 (field)
  152. -- low flags: 01
  153. -- high flags: 0000
  154. -- rect: left=72 top=97 right=133 bottom=441
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 0
  158. -- font id: 3
  159. -- text size: 9
  160. -- style flags: 0
  161. -- line height: 12
  162. -- part name: 
  163.  
  164.  
  165. -- part contents for card part 4
  166. ----- text -----
  167. ****************************
  168.  
  169. Many novice users, (I include myself during the BeforeTimes, ) create great first time stacks. But unfortunately they have created all the graphics and all the buttons and all the fields on the first card. Now, a light bulb goes off in their heads saying "Shucks golly gee whiz! I should have put all this on the background instead of the card."  Life is tough!  But here, in the nick of interstellar time is a utilities stack which will allow you to put everything on the background...
  170.  
  171. Click on the galaxy if you dare to repair!
  172.  
  173. -- part contents for card part 11
  174. ----- text -----
  175.  
  176. Foreground to Background Move Utility
  177.  
  178. -- part contents for card part 12
  179. ----- text -----
  180. This utility will move buttons, or fields, or graphics from the foreground of your card to the background of your stack.  Just decide on your options below and then click the "Dare to Repair" button.